package MarketInfo;
use strict;
use ObjectInfo;
use vars qw /@ISA/;
@ISA = ("ObjectInfo");

#{
#	'NP_V' => undef,
#	'Time' => '11:01:21',
#	'TotalValue' => '742.329',
#	'TotalVolume' => '12206850',
#	'SYS_SEQ' => '1',
#	'Advances' => undef,
#	'CLASS_NAME' => 'MarketInfo',
#	'Index' => '583.45',
#	'NoChange' => undef,
#	'PrevIndex' => '608.88',
#	'Transactions' => '11215',
#	'SessionNo' => undef,
#	'Declines' => undef,
#	'NV_V' => undef,
#	'TradingDate' => '05/03/2008',
#	'ChangeIndex' => '-25.43',
#	'CHANNEL_NAME' => 'GOV_HoSE'
#}

sub new{
	my $class = shift;
	my $self = $class->SUPER::new();
	$self->{'CLASS_NAME'} = 'MarketInfo';
	bless $self, $class;
	return $self;	
}

sub DESTROY{
	
}

1;